* net/dbus.el (top): Initialize only when `dbusbind' is loaded.

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index aeff93f6d26dcb528576a464bdb6c6c33a3e94e3..ccda21a2d224fd9098b66baaa5f00c7da3c1eca0 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -835,9 +835,10 @@ name of the property, and its value.  If there are no properties,
 ;; Initialize :system and :session buses.  This adds their file
 ;; descriptors to input_wait_mask, in order to detect incoming
 ;; messages immediately.
-(dbus-ignore-errors
- (dbus-init-bus :system)
- (dbus-init-bus :session))
+(when (featurep 'dbusbind)
+  (dbus-ignore-errors
+    (dbus-init-bus :system)
+    (dbus-init-bus :session)))
 
 (provide 'dbus)